﻿Public Class SinhVienBUS
    Private qlSVDAO As SinhVienDAO
    Public Sub New()
        qlSVDAO = New SinhVienDAO
    End Sub
    Public Shared Function GetData() As DataTable
        Dim dt As DataTable = New DataTable()
        dt = SinhVienDAO.GetData()
        Return dt
    End Function
    Public Shared Sub ThemSV(ByVal SinhVien As SinhVienDTO)
        SinhVienDAO.ThemSV(SinhVien)
    End Sub
    Public Shared Sub UpDateSV(ByVal SinhVien As SinhVienDTO)
        SinhVienDAO.UpDateSV(SinhVien)
    End Sub
    Public Shared Sub DeleteSV(ByVal SinhVien As SinhVienDTO)
        SinhVienDAO.DeleteSV(SinhVien)
    End Sub
    
    Public Shared Function LayDSSinhVien() As DataTable
        Dim dt As DataTable = New DataTable()
        dt = SinhVienDAO.LayDSSinhVien()
        Return dt
    End Function
    Public Shared Sub CapNhat(ByVal bangSinhVien As DataTable)
        SinhVienDAO.CapNhat(bangSinhVien)
    End Sub
    Public Shared Function LayCauTrucBang() As DataTable
        Dim dt As DataTable = New DataTable()
        dt = SinhVienDAO.LayCauTrucBang()
        Return dt
    End Function
    Private svDAO As SinhVienDAO
    Public Function InsertUpdateSinhVien(ByVal cusDTO As SinhVienDTO, ByVal f As Boolean)
        Return svDAO.InsertUpdateSinhVien(cusDTO, f)
    End Function
End Class
